home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 5-Fonts & Software / HyperCard 1.2.5 / More Stacks / Documents / Documents / background_2671.txt < prev    next >
Text File  |  1989-09-06  |  6KB  |  308 lines
  1. -- background: 2671 from stack: in
  2. -- bmap block id: 8725
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11.  
  12.  
  13. -- part 2 (field)
  14. -- low flags: 01
  15. -- high flags: 0000
  16. -- rect: left=69 top=40 right=58 bottom=390
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 0
  20. -- font id: 3
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Name
  25.  
  26.  
  27. -- part 11 (field)
  28. -- low flags: 01
  29. -- high flags: 0000
  30. -- rect: left=185 top=84 right=102 bottom=230
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: Creator
  39.  
  40.  
  41. -- part 12 (field)
  42. -- low flags: 00
  43. -- high flags: 0000
  44. -- rect: left=69 top=108 right=126 bottom=399
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 3
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Created
  53.  
  54.  
  55. -- part 13 (field)
  56. -- low flags: 01
  57. -- high flags: 0000
  58. -- rect: left=69 top=131 right=149 bottom=399
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 3
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Modified
  67.  
  68.  
  69. -- part 14 (field)
  70. -- low flags: 01
  71. -- high flags: 0000
  72. -- rect: left=284 top=84 right=102 bottom=351
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 0
  76. -- font id: 3
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Size
  81.  
  82.  
  83. -- part 15 (field)
  84. -- low flags: 01
  85. -- high flags: 0000
  86. -- rect: left=69 top=84 right=102 bottom=114
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 0
  90. -- font id: 3
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: Type
  95.  
  96.  
  97. -- part 17 (field)
  98. -- low flags: 00
  99. -- high flags: 0000
  100. -- rect: left=69 top=155 right=313 bottom=485
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 0
  104. -- font id: 3
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Notes
  109.  
  110.  
  111. -- part 18 (field)
  112. -- low flags: 01
  113. -- high flags: 0000
  114. -- rect: left=69 top=62 right=80 bottom=393
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 0
  118. -- font id: 3
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Where
  123.  
  124.  
  125. -- part 19 (button)
  126. -- low flags: 00
  127. -- high flags: A000
  128. -- rect: left=447 top=47 right=93 bottom=494
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 17343 / 17343
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Open
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   if field "Type" is "STAK" then go to stack field "Name"
  140.   else if field "Type" is "APPL" then open field "Name"
  141.   else
  142.     put GetCreator(field "Creator") into appName
  143.     if appName is not empty then open field "Name" with appName
  144.   end if
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 20 (button)
  150. -- low flags: 00
  151. -- high flags: 2000
  152. -- rect: left=20 top=286 right=319 bottom=59
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 20186 / 20186
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: 
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   ask "Sort cards by what field?" with "Type"
  164.   if it is not empty then sort by field it
  165. end mouseUp
  166.  
  167.  
  168.  
  169. -- part 23 (button)
  170. -- low flags: 00
  171. -- high flags: 0000
  172. -- rect: left=21 top=219 right=249 bottom=60
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 2478 / 2478
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: About
  181. ----- HyperTalk script -----
  182. on mouseUp
  183.   go to card "About"
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 24 (button)
  189. -- low flags: 00
  190. -- high flags: 0000
  191. -- rect: left=259 top=312 right=339 bottom=284
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 1013 / 1013
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: 
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   go to next card
  203. end mouseUp
  204.  
  205.  
  206.  
  207. -- part 25 (button)
  208. -- low flags: 00
  209. -- high flags: 0000
  210. -- rect: left=232 top=312 right=339 bottom=259
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 1014 / 1014
  213. -- text alignment: 1
  214. -- font id: 0
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: Prev
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   go to prev card
  222. end mouseUp
  223.  
  224.  
  225.  
  226. -- part 26 (button)
  227. -- low flags: 00
  228. -- high flags: 0000
  229. -- rect: left=473 top=310 right=340 bottom=499
  230. -- title width / last selected line: 0
  231. -- icon id / first selected line: 1012 / 1012
  232. -- text alignment: 1
  233. -- font id: 0
  234. -- text size: 12
  235. -- style flags: 0
  236. -- line height: 16
  237. -- part name: 
  238. ----- HyperTalk script -----
  239. on mouseUp
  240.   pop card
  241. end mouseUp
  242.  
  243.  
  244.  
  245. -- part 27 (button)
  246. -- low flags: 00
  247. -- high flags: 0000
  248. -- rect: left=20 top=251 right=283 bottom=59
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 32670 / 32670
  251. -- text alignment: 1
  252. -- font id: 0
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: 
  257. ----- HyperTalk script -----
  258. on mouseUp
  259.   show all cards
  260. end mouseUp
  261.  
  262.  
  263.  
  264. -- part 28 (button)
  265. -- low flags: 00
  266. -- high flags: A000
  267. -- rect: left=396 top=47 right=93 bottom=443
  268. -- title width / last selected line: 0
  269. -- icon id / first selected line: 1008 / 1008
  270. -- text alignment: 1
  271. -- font id: 0
  272. -- text size: 12
  273. -- style flags: 0
  274. -- line height: 16
  275. -- part name: Print
  276. ----- HyperTalk script -----
  277. on mouseUp
  278.   if field "Type" is "APPL" then exit mouseUp
  279.   else if field "Type" is "STAK" then
  280.     go to stack field "Name"
  281.     doMenu "Print Stack..."
  282.   else
  283.     put GetCreator(field "Creator") into appName
  284.     if appName is not empty then print field "Name" with appName
  285.   end if
  286. end mouseUp
  287.  
  288.  
  289.  
  290. -- part 29 (button)
  291. -- low flags: 00
  292. -- high flags: 0000
  293. -- rect: left=21 top=186 right=216 bottom=60
  294. -- title width / last selected line: 0
  295. -- icon id / first selected line: 11045 / 11045
  296. -- text alignment: 1
  297. -- font id: 0
  298. -- text size: 12
  299. -- style flags: 0
  300. -- line height: 16
  301. -- part name: Home
  302. ----- HyperTalk script -----
  303. on mouseUp
  304.   visual effect iris close
  305.   go home
  306. end mouseUp
  307.  
  308.